home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 4 / CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso / magazine / psion / misc / wt276.lzx / workhelp.opl < prev    next >
Text File  |  1996-09-20  |  7KB  |  227 lines
  1. REM This is the help structure for
  2. REM the Worktime program.
  3.  
  4. PROC WorkHelp:
  5.     local s%
  6.     while 1
  7.         dinit "Help"
  8.         dtext "","How to...",$400
  9.         dtext "","Files",$400
  10.         dtext "","Structure",$400
  11.         dtext "","Function keys",$400
  12.         lock on :s%=dialog :lock off
  13.         if s%=0 :return :endif
  14.         :@("Help"+num$(s%-1,1)):
  15.     endwh
  16.     return
  17. ENDP
  18.  
  19. PROC Help1:
  20.     local s%
  21.     while 1
  22.         dinit "How to"
  23.         dtext "","Mark time of arrival and leave",$400
  24.         dtext "","Setting slack of arrival and leave",$400
  25.         dtext "","Setting normal workday length for each day of the week",$400
  26.         dtext "","Starting and stopping projects",$400
  27.         lock on :s%=dialog :lock off
  28.         if s%=0 :return :endif
  29.         :@("Help1"+num$(s%-1,1)):
  30.     endwh
  31. ENDP
  32.  
  33. PROC Help11:
  34.     dinit "Marking time of arrival and leave"
  35.     dtext "","Press spacebar to open a new time slot (meeting time)"
  36.     dtext "","the next time you press the space bar that time slot"
  37.     dtext "","is closed (setting the leaving time) and the totals"
  38.     dtext "","are recalculated."
  39.     dtext ""," "
  40.     dtext "","Time slots started with the spacebar have"
  41.     dtext "","the slack times added or subtracted"
  42.     lock on :dialog :lock off
  43. ENDP
  44.  
  45. PROC Help12:
  46.     dinit "Setting slack"
  47.     dtext "","The slack is the time it takes you to"
  48.     dtext "","get in and out of work. The morning slack"
  49.     dtext "","is subtracted and the evening slack is added"
  50.     dtext "","to the current time."
  51.     dtext ""," "
  52.     dtext "","This can be found in the settings menu"
  53.     lock on :dialog :lock off
  54. ENDP
  55.  
  56. PROC Help13:
  57.     dinit "Setting normal workday length for each day of the week"
  58.     dtext "","This can be found in the settings menu"
  59.     dtext "","The values are saved in the data file."
  60.     lock on :dialog :lock off
  61. ENDP
  62.  
  63. PROC Help14:
  64.     local s%
  65.     while 1
  66.         dinit "Starting and stopping projects"
  67.         dtext "","Press spacebar in Project mode. (start)",$400
  68.         dtext "","Press spacebar in Time mode. (start)",$400
  69.         dtext "","Press a pre-compiled project key. (stop+start)",$400
  70.         dtext "","Press spacebar on an unfinished project. (stop)",$400
  71.         dtext ""," "
  72.         lock on :s%=dialog :lock off
  73.         if s%=0 :return :endif
  74.         :@("Help14"+num$(s%-1,1)):
  75.     endwh
  76. ENDP
  77.  
  78. PROC Help141:
  79.     dinit "Press spacebar in Project mode."
  80.     dtext "","When pressing space on a project in Project mode"
  81.     dtext "","the mode changes into Time mode and inserts a new"
  82.     dtext "","project with the current time and the selected"
  83.     dtext "","project text."
  84.     lock on :dialog :lock off
  85. ENDP
  86.  
  87. PROC Help142:
  88.     dinit "Press spacebar in Time mode."
  89.     dtext "","First press spacebar to register the time"
  90.     dtext "","then press return and modify normal to 00:00"
  91.     dtext "","and give a project description (text)"
  92.     dtext ""," "
  93.     dtext "","Alternative method (faster):"
  94.     dtext "","Press an undefined letter key and"
  95.     dtext "","insert project name in comment."
  96.     lock on :dialog :lock off
  97. ENDP
  98.  
  99. PROC Help143:
  100.     dinit "Press pre-compiled Project key."
  101.     dtext "","When pressing a project key, the current project (if any)"
  102.     dtext "","is closed and a new project is opened with the pre-defined text."
  103.     dtext ""," "
  104.     dtext "","To see some examples look at the end of WORKTIME.OPL"
  105.     lock on :dialog :lock off
  106. ENDP
  107.  
  108. PROC Help144:
  109. ENDP
  110.  
  111. PROC Help2:
  112.     local s%
  113.     dinit "Files"
  114.     dtext "","On startup a file is automatically created. All the standard"
  115.     dtext "","file operations are available from the system screen."
  116.     dtext ""," "
  117.     dtext "","Data files use the '.WTM' extension (not restricted to)"
  118.     dtext ""," "
  119.     dtext "","Each datafile holds an unlimitted (except for file size)"
  120.     dtext "","number of time records, max 899 project entries and"
  121.     dtext "","currently 10 setup records."
  122.     lock on :dialog :lock off
  123. ENDP
  124.  
  125. PROC Help3:
  126.     dinit "Structures"
  127.     dtext "","For each entry the following info is shown:"
  128.     dtext ""," þ Time of Arrival and Leave"
  129.     dtext ""," þ The expected work time (not projects)"
  130.     dtext ""," þ Time used for this entry (calculated)"
  131.     dtext ""," þ Normal work time for this day (not projects)"
  132.     dtext ""," þ Difference between the above two (calculated)"
  133.     dtext ""," þ Total accumulated difference"
  134.     dtext ""," þ A comment (default blank)"
  135.     lock on :dialog :lock off
  136. ENDP
  137.  
  138. PROC Help4:
  139.     local s%
  140.     while 1
  141.         dinit "Function keys"
  142.         dtext "","Typing keys",$400
  143.         dtext "","Psion combination keys",$400
  144.         lock on :s%=dialog :lock off
  145.         if s%=0 :return :endif
  146.         :@("Help4"+num$(s%-1,1)):
  147.     endwh
  148. ENDP
  149.  
  150. PROC Help41:
  151.     local s%
  152.     dinit "Typing keys (1/3)"
  153.     dtext "Space","Starts and stops timing slot (+/-slack time)"
  154.     dtext "Delete","Delete current entry (with confirm)"
  155.     dtext "Shift-Delete","Delete range of entries"
  156.     dtext "Enter","Edit the current entry"
  157.     dtext "Esc","Jump to system screen"
  158.     dtext "Tab","Jump to date"
  159.     dtext chr$(4),"Swap between project/time display"
  160.     dtext "(more)", " "
  161.     lock on :s%=dialog :lock off
  162.     if s%=0 :return :endif
  163.     dinit "Typing keys (2/3)"
  164.     dtext "'m'","Starts 'Meeting' project"
  165.     dtext "'l'","Starts 'Lunch' project"
  166.     dtext "'t'","Starts 'Transport' project"
  167.     dtext ""," "
  168.     dtext "","If an open project is found earlier, same day"
  169.     dtext "","that project is closed first."
  170.     dtext "(more)", " "
  171.     lock on :s%=dialog :lock off
  172.     if s%=0 :return :endif
  173.     dinit "Typing keys (3/3)"
  174.     dtext "Up","Move one line/entry up"
  175.     dtext "Down","Move one line/entry down"
  176.     dtext "Shift-Up","Move 3 lines/entries up"
  177.     dtext "Shift-Down","Move 3 lines/entries down"
  178.     dtext chr$(2)+"Up","Move 10 lines/entries up"
  179.     dtext chr$(2)+"Down","Move 10 lines/entries down"
  180.     dtext "Control-Up","Move 30 days backward (up)"
  181.     dtext "Control-Down","Move 30 days forward (down)"
  182.     lock on :dialog :lock off
  183. ENDP
  184.  
  185. PROC Help42:
  186.     local s%
  187.     dinit "Psion combination keys (1/3)"
  188.     dtext chr$(2)+"B","Begin new or existing project"
  189.     dtext chr$(2)+"C","Copy entry"
  190.     dtext chr$(2)+"D","Delete project"
  191.     dtext "shift"+chr$(2)+"D","Delete entry (same as pressing delete)"
  192.     dtext chr$(2)+"E","Edit entry"
  193.     dtext chr$(2)+"F","Change font type"
  194.     dtext chr$(2)+"I","Insert contents of paste buffer"
  195.     dtext "(more)", " "
  196.     lock on :s%=dialog :lock off
  197.     if s%=0 :return :endif
  198.     dinit "Psion combination keys (2/4)"
  199.     dtext chr$(2)+"J","Jump to date"
  200.     dtext chr$(2)+"L","Set slack times"
  201.     dtext chr$(2)+"M","Make/Create new file"
  202.     dtext chr$(2)+"N","Set normal worktime for each weekday"
  203.     dtext chr$(2)+"O","Open (existing) file"
  204.     dtext chr$(2)+"P","Print (to file)"
  205.     dtext chr$(2)+"Q","Rounding (setup)"
  206.     dtext "(more)", " "
  207.     lock on :s%=dialog :lock off
  208.     if s%=0 :return :endif
  209.     dinit "Psion combination keys (3/4)"
  210.     dtext chr$(2)+"R","Repaint screen"
  211.     dtext "Shift"+chr$(2)+"R","Delete range of entries"
  212.     dtext chr$(2)+"S","Sort and recalculate entire database"
  213.     dtext chr$(2)+"U","Usage/Project totals"
  214.     dtext chr$(2)+"W","Who did this ?"
  215.     dtext chr$(2)+"X","Exit Worktime"
  216.     dtext "(more)", " "
  217.     lock on :s%=dialog :lock off
  218.     if s%=0 :return :endif
  219.     dinit "Psion combination keys (4/4)"
  220.     dtext chr$(2)+"Z","Zoom in"
  221.     dtext "Shift"+chr$(2)+"Z","Zoom out"
  222.     lock on :s%=dialog :lock off
  223.     if s%=0 :return :endif
  224. ENDP
  225.  
  226.  
  227.